home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zm.d64 / proc.quote'keys < prev    next >
Text File  |  2007-03-01  |  221b  |  8 lines
  1. 0010 ╨╥╧├ QUOTE'KEYS(ON,OFF) 
  2. 0020   //═┼╥╟┼:╙├┴╬:CALL WITH KEY NOS
  3. 0030   ╒╙┼ SYSTEM
  4. 0040   DEFKEY(ON,"USE SYSTEM"13"QUOTE'MODE(1)"13"")
  5. 0050   DEFKEY(OFF,"USE SYSTEM"13"QUOTE'MODE(0)"13"")
  6. 0060 ┼╬─╨╥╧├ QUOTE'KEYS
  7. 0070 
  8.